open Jopruntime
open Jopruntime.Circuit

let clk2 () =
	< c, o; o2>
	| o = reg c
	| o2 = reg o
	| c = not_ o2
;;

let main () =
  < s, r >
    | s, r = clk2 ()
    | (output "s" s)
	| (output "r" r)
;;

(* Ligne qu'on pourra retirer plus tard *)
temp_gen (fst (main ())) Sys.argv.(1);;
